home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / N-New Submissions / (n)n2.d64 / santas letter (.txt) < prev    next >
Commodore BASIC  |  2007-02-24  |  7KB  |  232 lines
  1. 1 REM**PERSONALIZED STORY SETUP**
  2. 2 REM**RICK ANDING   ATLANTA**
  3. 3 GOSUB 9000
  4. 4 POKE 53280,6:POKE 53281,6:POKE 646,3
  5. 5 FOR X=1 TO 1000:NEXT
  6. 6 PRINT:PRINT"ANSWER ALL NOUN QUESTIONS WITH NOUN ONLY EXAMPLE ANSWER:  CAR ";
  7. 7 PRINT" ( NOT: A CAR )":FOR X=1 TO 3000:NEXT
  8. 8 PRINT:INPUT "IS THE STORY CHILD MALE OR FEMALE";SX$
  9. 10 INPUT "FIRST NAME";NA$
  10. 20 INPUT "LAST NAME";NB$
  11. 50 INPUT "CITY";CI$
  12. 125 INPUT "NUMBER OF DOG OR CAT PETS";P
  13. 130 IF P=0 GOTO 170
  14. 140 FOR X=1 TO P
  15. 150 INPUT "ONE PET'S NAME";PN$(X)
  16. 160 NEXT X
  17. 170 INPUT "#1 FRIEND/PLAYMATE'S WHOLE NAME";FA$
  18. 180 INPUT "#2 FRIEND/PLAYMATE'S WHOLE NAME";FB$
  19. 187 INPUT "DID CHILD WRITE TO SANTA THIS YEAR";WR$
  20. 190 INPUT"DESIRED #1 TOY THAT SANTA WILL BRING    THIS YEAR";TA$
  21. 195 INPUT"DESIRED #2 TOY THAT SANTA WILL BRING    THIS YEAR";TB$
  22. 196 FOR X=1 TO 1500:NEXT:PRINT
  23. 197 PRINT"IF THE NEXT QUESTION DOES NOT APPLY,    PLEASE WRITE THE WORD,   NONE"
  24. 198 FOR X=1 TO 3000:NEXT:PRINT
  25. 199 INPUT"WHAT DESIRED TOY COSTS TOO MUCH FOR     SANTA TO BRING";TX$
  26. 200 PRINT
  27. 201 INPUT"DOES CHILD HAVE A FRIEND/SIBLING THEY   OFTEN FIGHT WITH..YES/NO";QB$
  28. 202 IF QB$="NO" OR QB$="N" GOTO 204
  29. 203 PRINT:INPUT "1ST NAME OF SIBLING/FRIEND WITH WHOM CHILD  OFTEN QUARRELS";QC$
  30. 204 INPUT "TODAY'S DATE (WRITE AS: MAY 5TH)";DT$
  31. 205 FOR X=1 TO 2000:NEXT X:PRINT"[147]"
  32. 215 PRINT
  33. 220 PRINT "CHILD'S GENDER  ";SX$
  34. 225 PRINT "FIRST NAME      ";NA$
  35. 240 PRINT "LAST NAME       ";NB$
  36. 245 PRINT "CITY            ";CI$
  37. 300 IF P=0 GOTO 340
  38. 310 FOR X=1 TO P
  39. 320 PRINT "PET'S NAME      ";PN$(X)
  40. 330 NEXT X
  41. 340 PRINT "#1 FRIEND'S NAME   ";FA$
  42. 350 PRINT "#2 FRIEND'S NAME   ";FB$
  43. 358 PRINT "CHILD WROTE SANTA? "WR$
  44. 360 PRINT "DESIRED TOY #1     ";TA$
  45. 365 PRINT "DESIRED TOY #2     ";TB$
  46. 368 IF TX$="NONE" GOTO 372
  47. 370 PRINT "SANTA CAN'T BRING  ";TX$
  48. 372 IF QB$="NO" OR QB$="N" GOTO 376
  49. 375 PRINT "QUARRELS WITH      ";QC$
  50. 376 PRINT "TODAY'S DATE       "DT$
  51. 378 PRINT:INPUT"IS INFORMATION CORRECT";A$
  52. 380 IF A$="NO" OR A$="N" GOTO 5
  53. 390 FOR X=1 TO 1000:NEXT:PRINT
  54. 400 IF SX$="MALE" OR SX$="M" THEN G=1
  55. 410 IF SX$="FEMALE" OR SX$="F" THEN G=2
  56. 412 BY$(1)=" BOY"
  57. 414 BY$(2)=" GIRL"
  58. 416 HE$(1)="HE"
  59. 418 HE$(2)="SHE"
  60. 420 HM$(1)="HIM"
  61. 422 HM$(2)="HER"
  62. 424 HS$(1)="HIS"
  63. 426 HS$(2)="HER"
  64. 430 IF AG$="MALE" OR SX$="M" THEN H=1
  65. 432 IF AG$="FEMALE" OR SX$="F" THEN H=2
  66. 434 IF BG$="MALE" OR SX$="M" THEN I=1
  67. 436 IF BG$="FEMALE" OR SX$="F" THEN I=2
  68. 438 IF CG$="MALE" OR SX$="M" THEN J=1
  69. 440 IF CG$="FEMALE" OR SX$="F" THEN J=2
  70. 442 AA$(1)=" SIR "
  71. 444 AA$(2)=" LADY "
  72. 482 PRINT "AT THIS POINT MAKE SURE YOUR PRINTER IS TURNED ON ";
  73. 484 PRINT " AND PROPERLY HOOKED UP TO THECOMPUTER
  74. 486 [129] X[178]1 [164] 4000:[130]
  75. 488 [153]:[153]:[153]:[153]:[153]
  76. 490 [153]"PRESS THE SPACE BAR TO BEGIN PRINTING   THE STORY"
  77. 492 [161] RN$
  78. 494 [139] RN$[178]"" [167] [137] 492
  79. 496 [139] RN$[179][177][199](32) [167] [137] 492
  80. 498 [159]3,4
  81. 500 [143]**** LETTER BODY ****
  82. 510 [141] 2000
  83. 520 [152]3,[163]57)"SANTA CLAUS"
  84. 522 [152]3,[163]57)"NORTH POLE"
  85. 524 [152]3,[163]57)DT$
  86. 525 [152]3,
  87. 526 [152]3,
  88. 555 [152]3,
  89. 560 [152]3,[163]10)"DEAR ";NA$;","
  90. 565 [152]3,
  91. 570 [152]3,[163]10)"I THOUGHT I WOULD TAKE A FEW MINUTES AWAY FROM TOY MAKING"
  92. 572 [139] WR$[178]"N" [176] WR$[178]"NO" [137] 580
  93. 575 [152]3,[163]10)"THIS YEAR, TO WRITE YOU A SHORT LITTLE LETTER, AND LET YOU"
  94. 576 [152]3,[163]10)"KNOW HOW MUCH I ENJOYED THE NICE LETTER YOU SENT ME!"
  95. 578 [137] 585
  96. 580 [152]3,[163]10)"TO WRITE A LITTLE LETTER TO YOU BEFORE WE GET TOO BUSY WITH"
  97. 583 [152]3,[163]10)"THE CHRISTMAS RUSH!"
  98. 585 [152]3
  99. 590 [152]3,[163]10)"AS YOU CAN IMAGINE, MY TOY SHOP IS WORKING VERY HARD NOW,"
  100. 595 [152]3,[163]10)"MAKING THE TOYS FOR ALL THE LITTLE BOYS AND GIRLS ALL OVER
  101. 600 PRINT#3,TAB(10)"THE WORLD.  WE HAVE TO BE FINISHED, AND HAVE THE SLEIGH"
  102. 605 PRINT#3,TAB(10)"LOADED AND READY TO GO BY CHRISTMAS EVE!  LATELY I HAVE BEEN
  103. 610 [152]3,[163]10)"READING THE LETTERS FROM THE BOYS AND GIRLS AND TALKING TO"
  104. 615 [152]3,[163]10)"MY ELVES ABOUT WHAT EACH CHILD WANTS, AND WHO HAS BEEN GOOD"
  105. 620 [152]3,[163]10)"OR BAD.
  106. 625 PRINT#3
  107. 630 PRINT#3,TAB(10)"I AM TOLD THAT YOU HAVE BEEN A PRETTY GOOD LITTLE";BY$(G);
  108. 635 PRINT#3," THIS YEAR."
  109. 640 PRINT#3,TAB(10)"THEY TELL ME THAT YOU PLAY WELL WITH YOUR TWO LITTLE FRIENDS
  110. 645 [152]3,[163]10)FA$;" AND ";FB$;". "
  111. 648 [152]3
  112. 649 [139] QB$[178]"N" [176] QB$[178]"NO" [137] 669
  113. 650 [152]3,[163]10)"(I HAVE BEEN TOLD, THOUGH, THAT SOMETIMES YOU WILL ARGUE AND
  114. 655 PRINT#3,TAB(10)"FIGHT WITH ";QC$;", WHEN YOU REALLY SHOULDN'T!)
  115. 660 [152]3,[163]10)"WILL YOU PROMISE SANTA THAT YOU WILL TRY NOT TO FIGHT, AND"
  116. 665 [152]3,[163]10)"TRY TO ALWAYS GET ALONG WITH ";QC$;"?  I HOPE SO!"
  117. 668 [152]3
  118. 669 [139] P[178]0 [137] 690
  119. 670 [152]3,[163]10)"ARE YOU STILL TAKING GOOD CARE OF ";
  120. 673 [139] P[177]1 [137] 680
  121. 675 [152]3,PN$(1);"?"
  122. 676 [137] 690
  123. 680 [152]3,PN$(1);" AND ";PN$(2)"?"
  124. 690 [152]3,[163]10)"(SEE! SANTA REALLY DOES KNOW IF YOU'VE BEEN GOOD OR BAD!)
  125. 692 PRINT#3
  126. 695 PRINT#3,TAB(10)"I BELIEVE I HAVE THE ";TA$;" YOU SAID YOU WANTED."
  127. 698 PRINT#3,TAB(10)"THE ";TB$;" YOU WANTED MAY ALSO BE UNDER YOUR TREE "
  128. 700 PRINT#3,TAB(10)"THIS YEAR, ALONG WITH A FEW OTHER SUPRISES!
  129. 708 [139] TX$[178]"NONE" [137] 748
  130. 709 [152]3
  131. 710 [152]3,[163]10)"YOU HAVE TO REMEMBER THOUGH, THAT SANTA HAS TO BRING TOYS TO
  132. 715 PRINT#3,TAB(10)"ALL THE LITTLE BOYS AND GIRLS, AND MUST HAVE ENOUGH TOYS TO
  133. 720 [152]3,[163]10)"MAKE SURE NOBODY GETS LEFT OUT!"
  134. 725 [152]3,[163]10)"THE ";TX$;" YOU WANTED IS TOO MUCH FOR SANTA TO BRING"
  135. 730 [152]3,[163]10)"THIS YEAR, BUT I WILL BRING SOME OTHER PRESENTS FOR YOU"
  136. 735 [152]3,[163]10)"INSTEAD.  YOU'RE A SMART";BY$(G);", AND I THINK YOU WILL"
  137. 740 [152]3,[163]10)"UNDERSTAND THAT SANTA HAS TO SHARE WITH EVERYONE!
  138. 748 PRINT#3
  139. 750 PRINT#3,TAB(10)"REMEMBER TO KEEP BEING A GOOD LITTLE";BY$(G);", AND I'LL ";
  140. 755 PRINT#3,"STOP BY"
  141. 760 PRINT#3,TAB(10)"THE ";NB$;" HOUSE IN ";CI$;" ON CHRISTMAS EVE!"
  142. 765 PRINT#3
  143. 767 PRINT#3
  144. 768 PRINT#3
  145. 770 PRINT#3,TAB(50)"YOUR FRIEND,"
  146. 800 PRINT#3,TAB(50)"   SANTA"
  147. 805 PRINT#3
  148. 810 PRINT#3
  149. 820 PRINT#3,"[216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216]";
  150. 830 PRINT#3,"[216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216]
  151. 850 [128]
  152. 1999 [159] 3,4
  153. 2000 [152]3,"              <-       <-       <-       <-              (null) "
  154. 2040 [152]3,"             <')  (null)   <')  (null)   <')  (null)   <')  (null)    (null)  ANDANDANDANDSGN"
  155. 2050 [152]3,"               FREFREFRE      FREFREFRE      FREFREFRE      FREFREFRE     SGN  SGNSC SGN"
  156. 2060 [152]3,"              (null)(null) (null)(null)    (null)(null) (null)(null)    (null)(null) (null)(null)    (null)(null) (null)(null)    (null)ANDAND(null)ANDANDANDINT       "
  157. 2070 [152]3,"                                                  (null)TOTOTOTOTOTO(null)  "
  158. 2100 [152]3
  159. 2110 [152]3
  160. 2120 [142]
  161. 7999 [128]
  162. 9000 [151] 646,6
  163. 9001 [151] 53280,7:[151] 53281,7:[153]"LOAD"
  164. 9002 [129] X[178]1 [164] 1000:[130]
  165. 9003 [143]*                 LINE RIGHT *
  166. 9005 [129] X[178]1 [164] 39
  167. 9010 [153]"SIN";
  168. 9015 [129] Y[178]1 [164] 10:[130] Y
  169. 9020 [130]
  170. 9028 [143]*                  LINE DOWN *
  171. 9030 [129] X[178]1 [164] 22
  172. 9040 [153] [163]40)"CMDCMDSIN"
  173. 9050 [129] Y[178]1 [164] 10:[130] Y
  174. 9060 [130] X
  175. 9068 [143]*                  LINE LEFT *
  176. 9070 [129] X[178]1 [164] 39
  177. 9080 [153]"CMDCMDSIN";
  178. 9090 [129] Y[178]1 [164] 10:[130] Y
  179. 9095 [130] X
  180. 9096 [153]"CMDSINCMD";
  181. 9098 [143]*                    LINE UP *
  182. 9100 [129] X[178]1 [164] 21
  183. 9110 [153] "ONSINON"
  184. 9120 [129] Y[178]1 [164] 10: [130] Y
  185. 9130 [130] X
  186. 9140 [129] D [178]1 [164] 350:[130]
  187. 9160 [153] [163]204)"SIN";
  188. 9170 [129] X[178]1 [164] 28
  189. 9175 [153] "SIN";
  190. 9180 [129] Y[178]1 [164] 10:[130] Y
  191. 9190 [130] X
  192. 9195 [153]"SIN"
  193. 9200 [153] [163]33)"SIN"
  194. 9210 [153] [163]33)"SIN"
  195. 9220 [153] [163]33)"SIN"
  196. 9230 [153] [163]33)"SIN";
  197. 9240 [129] X[178]1 [164] 30
  198. 9250 [153]"CMDSINCMD";
  199. 9255 [129] Y[178]1 [164] 10: [130] Y
  200. 9260 [130] X
  201. 9270 [129] X[178]1 [164] 3
  202. 9280 [153] "ONSINCMD";
  203. 9290 [129] Y[178]1 [164] 10:[130]
  204. 9300 [130] X
  205. 9305 [129] X[178]1 [164] 350:[130]
  206. 9310 [153] [163]46)" ANDING'S NOODLE PRESENTS"
  207. 9315 [129] X[178]1 [164] 1500:[130]
  208. 9320 [153] [163]252)" "
  209. 9325 [131] "S","A","N","T","A","S"," ","L","E","T","T","E","R"
  210. 9330 [153] [163]12)"*CMD";
  211. 9335 [129] J[178]1 [164] 13
  212. 9340 [129] X[178]1 [164] 12
  213. 9350 [153]" *CMD";
  214. 9360 [129] Y[178]1 [164] 4:[130] Y
  215. 9370 [130] X
  216. 9375 [153]"CMD* CMD";
  217. 9380 [129] X[178]1 [164] 11
  218. 9390 [153]"CMDCMD* CMD";
  219. 9400 [129] Y[178]1 [164] 5:[130] Y
  220. 9410 [130] X
  221. 9415 [135] A$
  222. 9416 [153]"CMDON";A$;:[153]"";
  223. 9420 [130] J
  224. 9425 [129] Y[178]1 [164] 200:[130]
  225. 9430 [153] [163]58)"*":[129] Y[178]1 [164] 200:[130]
  226. 9440 [153] [163]18)"*":[129] Y[178]1 [164] 200:[130]
  227. 9450 [153] [163]18)"*":[129] Y[178]1 [164] 200:[130]
  228. 9460 [153] [163]18)"*":[129] Y[178]1 [164] 200:[130]
  229. 9470 [153] [163]18)"*":[129] Y[178]1 [164] 2400:[130]
  230. 9486 [153]"LOAD"
  231. 9490 [142]
  232.